unit uPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls;

type
  TfrmPrincipal = class(TForm)
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    Cidade1: TMenuItem;
    Cliente1: TMenuItem;
    Panel1: TPanel;
    Fornecedor1: TMenuItem;
    Movimentao1: TMenuItem;
    Sair1: TMenuItem;
    Financeiro1: TMenuItem;
    Utilitarios1: TMenuItem;
    Calculadora1: TMenuItem;
    CpiadeSegurana1: TMenuItem;
    RestaurarCpia1: TMenuItem;
    Marca1: TMenuItem;
    Grupo1: TMenuItem;
    Produto1: TMenuItem;
    CondiodePagmento1: TMenuItem;
    Usurio1: TMenuItem;
    procedure Cidade1Click(Sender: TObject);
    procedure Cliente1Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Fornecedor1Click(Sender: TObject);
    procedure Marca1Click(Sender: TObject);
    procedure Grupo1Click(Sender: TObject);
    procedure Produto1Click(Sender: TObject);
    procedure CondiodePagmento1Click(Sender: TObject);
    procedure Usurio1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

uses uCidade, uCliente, uFornecedor, uMarca, uGrupo, uProduto, uCondicao,
  uUsuario;

{$R *.dfm}

procedure TfrmPrincipal.Cidade1Click(Sender: TObject);
begin

  try
    Application.CreateForm(TfrmCidade,frmCidade);
    frmCidade.ShowModal;
  finally
    frmCidade.free;
    frmCidade:=nil;
  end;

end;

procedure TfrmPrincipal.Cliente1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmCliente,frmCliente);
    frmCliente.ShowModal;
  finally
    frmCliente.Free;
    frmCliente:=nil;
  end;

end;

procedure TfrmPrincipal.Sair1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmPrincipal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if MessageDlg('Deseja mesmo sair do Sistema?', mtConfirmation, [mbYes,mbNo],0) = mrYes then
  begin
    Action := caFree;
    Application.Terminate;
  end
  else
  begin
    Action := caNone;
  end;
end;

procedure TfrmPrincipal.Fornecedor1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmFornecedor,frmFornecedor);
    frmFornecedor.ShowModal;
  finally
    frmFornecedor.Free;
    frmFornecedor:=nil;
  end;
end;

procedure TfrmPrincipal.Marca1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmMarca,frmMarca);
    frmMarca.ShowModal;
  finally
    frmMarca.Free;
    frmMarca:=nil;
  end;
end;

procedure TfrmPrincipal.Grupo1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmGrupo,frmGrupo);
    frmGrupo.ShowModal;

  finally
    frmGrupo.free;
    frmGrupo:=nil;
  end;
end;

procedure TfrmPrincipal.Produto1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmProduto,frmProduto);
    frmProduto.ShowModal;
  finally
    frmProduto.Free;
    frmProduto:=nil;
  end;
end;

procedure TfrmPrincipal.CondiodePagmento1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmCondicao,frmCondicao);
    frmCondicao.ShowModal
  finally
    frmCondicao.Free;
    frmCondicao:=nil;
  end;
end;

procedure TfrmPrincipal.Usurio1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmUsuario,frmUsuario);
    frmUsuario.ShowModal;
  finally
    frmUsuario.Free;
    frmUsuario:=nil;
  end;
end;

end.
